﻿Imports DTO
Imports DAL
Public Class UsuarioBLL
    Function Consultar(usuario As UsuarioDTO) As UsuarioDTO
        Dim dalUsuario As New UsuarioDAL
        Dim dtoUsuario As New UsuarioDTO
        Try
            dtoUsuario = dalUsuario.Consultar(usuario)

            If Not IsNothing(dtoUsuario) Then
                Return dtoUsuario
            End If

        Catch ex As Exception
            Throw ex
        End Try
        dtoUsuario = Nothing

        Return dtoUsuario
    End Function

    Sub Incluir(usuario As UsuarioDTO)
        Dim dalUsuario As New UsuarioDAL
        Dim dtoUsuario As New UsuarioDTO
        Try
            dtoUsuario = dalUsuario.Consultar(usuario)

            If IsNothing(dtoUsuario) Then
                dalUsuario.Incluir(usuario)
            Else
                'TODO
            End If

        Catch ex As Exception
            Throw ex
        End Try
    End Sub

End Class
